﻿<Serializable()> _
Public Class EinstanciasTP

#Region "           Atributos                       "
    Private _idInstanciaTP As Int32
    Private _descInstanciaTP As String
    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32
    Private _descUsuario As String
    Private _fechaCreacion As String
    Private _Orden As Int32
#End Region

#Region "           Propiedades                     "
    Public Property Orden() As Int32
        Get
            Return _Orden
        End Get
        Set(ByVal value As Int32)
            _Orden = value
        End Set
    End Property
    Public Property fechaCreacion() As String
        Get
            Return _fechaCreacion
        End Get
        Set(ByVal value As String)
            _fechaCreacion = value
        End Set
    End Property
    Public Property idInstanciaTP() As Int32
        Get
            Return _idInstanciaTP
        End Get
        Set(ByVal value As Int32)
            _idInstanciaTP = value
        End Set
    End Property
    Public Property descInstanciaTP() As String
        Get
            Return _descInstanciaTP
        End Get
        Set(ByVal value As String)
            _descInstanciaTP = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
    Public Property descUsuario() As String
        Get
            Return _descUsuario
        End Get
        Set(ByVal value As String)
            _descUsuario = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idInstanciaTP As Int32, ByVal descInstanciaTP As String)
        Me.idInstanciaTP = idInstanciaTP
        Me.descInstanciaTP = descInstanciaTP
    End Sub
    Public Sub New(ByVal idInstanciaTP As Int32, ByVal descInstanciaTP As String, ByVal estado As String, ByVal fechaInstanciaTP As String, ByVal Orden As Int32, ByVal descUsuario As String)
        Me.idInstanciaTP = idInstanciaTP
        Me.descInstanciaTP = descInstanciaTP
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
        Me.descUsuario = descUsuario
        Me.fechaCreacion = fechaInstanciaTP
        Me.Orden = Orden
    End Sub
#End Region

End Class
